﻿Imports extremo

Public Class RReserva

    Property ReservaForm As ReservaForm

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Label5_Click(sender As System.Object, e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim x = Me.txtDeporte.Text

        Dim y = Me.txtCantidad.Text

        Dim z = Me.txtFecha.Text

        Dim a = Me.txtEvento.Text

        Dim b = Me.txtUsuario.Text


        Dim n = New ReservaNegocio()

        Dim paquete = n.insertar(x, y, z, a, b)

        MsgBox("Reserva registrada!!!!")

        'Limpiar cajitas de texto desues de ingresar datos
        txtDeporte.Clear()
        txtCantidad.Clear()
        txtFecha.Clear()
        txtEvento.Clear()
        txtUsuario.Clear()
       

    End Sub



End Class


